Celestin Apprentice 5/Apprentice-Release5.iso/Demos/Evatac Software/Preditor 3.0/Tools/Language Module Builder/Sources/Pascal/Pascal.rsrc/STR#_601.txt

Text File | 1995-11-16 | 574 b | 93 lines

function

•(•):•;
•begin
    •
end {function •}

•


procedure

•(•);
•begin
    •
end {procedure •}

•


label

label •;•


const

const •;•

type

type •;•

var

var •;•

record

record
    •
end;•

begin

begin
    •
end•

for

for • := • to • do begin
    •
end {for}•

while

while (•) do begin
    •
end {while}•

repeat

repeat
    •
until (•);•

if

if (•) then begin
    •
end {if}•

elseif

∆end else if (•) begin
•

else

∆end else begin
•

case

case  (•)
    • : begin
        •
    end

end {case{•